Importazione dei tassi di cambio dal sito web della NBU a LibreOffice Calc

NBU_RATE() Descrizione

Una funzione già pronta per coloro che devono utilizzare spesso i tassi di cambio NBU In LibreOffice Calc .

Aiuta a ottenere automaticamente il valore del tasso di cambio Sito web dell'NBU dal suo codice e dalla data.

StarBASIC codice per la funzione NBU_RATE

Per aggiungere una funzionalità tassi di cambio delle importazioni della NBU , aprire il menu Tools - Macros - Edit Macros... , Selezionare Module1 e copia il seguente testo in questo modulo:

Function NBU_RATE(ByVal pCurrency, ByVal pDate)
  'moonexcel.com.ua 
  Dim FCalc As Object
  
  If Len(pCurrency) = 0 Or Len(pDate) = 0 Then Exit Function             
      
  FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")
  
  tDate = FCalc.callFunction("TEXT", Array(pDate,"YYYYMMDD"))
                                                    
  RequestString = "https://bank.gov.ua/NBU_Exchange/exchange_site?start=" & tDate & "&end=" & tDate & "&valcode=" & pCurrency
            
  WebServiceResponse = FCalc.callFunction("WEBSERVICE", Array(RequestString))  
  
  NBU_RATE = FCalc.callFunction("FILTERXML", Array(WebServiceResponse,"//rate_per_unit"))    
End Function

Chiudilo Macro Editor e tornare a LibreOffice Calc .

Ora puoi accedere manualmente alla nostra funzione NBU_RATE() . La sintassi di questa funzione è la seguente:

=NBU_RATE ( codice valuta ; data )

Avremo il seguente risultato:

Utilizzando l'estensione

Puoi anche utilizzare la funzione NBUA() installando l'estensione gratuita YouLibreCalc.oxt o la sua versione completa YLC_Utilities.oxt .

Successivamente, questa funzione sarà disponibile in tutti i file che verranno aperti in LibreOffice Calc.